home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 1 / PC Actual CD 01.iso / share / dos / graficos / plydat14.arj / HEX.PI < prev    next >
Encoding:
Text File  |  1992-04-05  |  1.7 KB  |  80 lines
  1. // Generic Polyray input File
  2. // Polyray input file: Alexander Enzmann
  3.  
  4. // Set up the camera
  5. viewpoint {
  6.    from <0,4,-10>
  7.    at <0,0,12>
  8.    up <0,1,0>
  9.    angle 45
  10.    hither 1
  11.    resolution 160, 120
  12.    aspect 1.33333
  13.    }
  14.  
  15. background sky_blue
  16. light <-10,3, -20>
  17.  
  18. include "colors.inc"
  19.  
  20. define test_map
  21.    color_map(
  22.       [0,   0.1, red,     orange]
  23.       [0.1, 0.3, orange,  blue]
  24.       [0.3, 0.5, blue,    skyblue]
  25.       [0.5, 0.7, skyblue, orange]
  26.       [0.7, 0.9, orange,  magenta]
  27.       [0.9, 1.0, magenta, red],
  28.       <1, 1, 1>)
  29.  
  30. // Simple color map texture
  31. define noise_texture
  32. texture {
  33.    special surface {
  34.       color test_map[noise(P)]
  35.       ambient 0.2
  36.       diffuse 0.8
  37.       specular white, 0.5
  38.       microfacet Reitz 10
  39.       }
  40.    scale <0.3, 0.3, 0.3>
  41.    }
  42.  
  43. define marble_turb 1
  44. define marble_fn  (sawtooth(P[0] + marble_turb * noise(P,6)) + 1) / 2
  45.  
  46. define white_marble_map
  47.    color_map(
  48.       [0.0, 0.8, <0.9, 0.9, 0.9>, <0.5, 0.5, 0.5>]
  49.       [0.8, 1.0, <0.5, 0.5, 0.5>, <0.2, 0.2, 0.2>])
  50.  
  51. // Simple marble textures
  52. define white_marble
  53. texture {
  54.    special surface {
  55.       color white_marble_map[marble_fn]
  56.       ambient 0.2
  57.       diffuse 0.8
  58.       specular white, 0.5
  59.       microfacet Reitz 10
  60.       }
  61.    scale <0.6, 0.6, 0.6>
  62.    }
  63.  
  64. object {
  65.    polynomial y + 2
  66.    texture {
  67.       hexagon
  68.      texture {
  69.         radial 20, 0.8, 0.1, 0.025, matte_white, matte_black
  70.         translate <0.5, 0, 0.5>
  71.         },
  72.      matte_red,
  73.      matte_blue
  74.       scale <6, 6, 6>
  75.       }
  76.    }
  77. object { sphere < 0, 0,12>, 2 mirror }
  78. object { sphere <-6, 0,10>, 2 reflective_gold }
  79. object { sphere < 6, 0,10>, 2 reflective_coral }
  80.